#!
# by jzhang @ 15:04 2004-01-14
# to demostrate how to use map in perl
#

@data = map  {2**$_}  0..32;
print join "\n",@data;
